1 Summary

  • plotlyを触る

2 Preparations

2.1 libraries

options(scipen=10)
library(dplyr)
library(knitr)
library(plotly)

3 Area Plot

sample_size <- 555
p1 <- 0.1
p2 <- 0.15

pmf_as_is <- dbinom(0:sample_size, sample_size, p1)
pmf_to_be <- dbinom(0:sample_size, sample_size, p2)

data <- bind_rows(tibble(index = 0:sample_size, name = "ASIS", value = pmf_as_is), tibble(index = 0:sample_size, name = "TOBE", value = pmf_to_be))

plot_ly(data, x = ~index, y = ~value, type = 'scatter', mode = 'lines', color = ~name, fill = 'tozeroy')
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
LS0tCnRpdGxlOiAiRXggUGxvdGx5IgphdXRob3I6ICJva2l5dWtpOTkiCmRhdGU6ICdgciBTeXMuRGF0ZSgpYCcKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICBmaWdfd2lkdGg6IDcKICAgIGZpZ19oZWlnaHQ6IDQuNQogICAgZmlnX2NhcHRpb246IHRydWUKICAgIHRoZW1lOiBjb3NtbwogICAgaGlnaGxpZ2h0OiB0YW5nbwogICAgY29kZV9mb2xkaW5nOiBoaWRlCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCmtuaXQ6IChmdW5jdGlvbihpbnB1dEZpbGUsIGVuY29kaW5nKSB7IAogICAgICBybWFya2Rvd246OnJlbmRlcihpbnB1dEZpbGUsCiAgICAgICAgICAgICAgICAgICAgICAgIGVuY29kaW5nPWVuY29kaW5nLCAKICAgICAgICAgICAgICAgICAgICAgICAgb3V0cHV0X2RpciA9ICIuLi9kb2NzLyIpIH0pCi0tLQoKIyBTdW1tYXJ5IAoKKiBwbG90bHnjgpLop6bjgosKCiMgUHJlcGFyYXRpb25zIHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQoKIyMgbGlicmFyaWVzCgpgYGB7ciwgbWVzc2FnZT1GLCB3YXJuaW5nPUZ9Cm9wdGlvbnMoc2NpcGVuPTEwKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGtuaXRyKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgojIEFyZWEgUGxvdAoKYGBge3J9CnNhbXBsZV9zaXplIDwtIDU1NQpwMSA8LSAwLjEKcDIgPC0gMC4xNQoKcG1mX2FzX2lzIDwtIGRiaW5vbSgwOnNhbXBsZV9zaXplLCBzYW1wbGVfc2l6ZSwgcDEpCnBtZl90b19iZSA8LSBkYmlub20oMDpzYW1wbGVfc2l6ZSwgc2FtcGxlX3NpemUsIHAyKQoKZGF0YSA8LSBiaW5kX3Jvd3ModGliYmxlKGluZGV4ID0gMDpzYW1wbGVfc2l6ZSwgbmFtZSA9ICJBU0lTIiwgdmFsdWUgPSBwbWZfYXNfaXMpLCB0aWJibGUoaW5kZXggPSAwOnNhbXBsZV9zaXplLCBuYW1lID0gIlRPQkUiLCB2YWx1ZSA9IHBtZl90b19iZSkpCgpwbG90X2x5KGRhdGEsIHggPSB+aW5kZXgsIHkgPSB+dmFsdWUsIHR5cGUgPSAnc2NhdHRlcicsIG1vZGUgPSAnbGluZXMnLCBjb2xvciA9IH5uYW1lLCBmaWxsID0gJ3RvemVyb3knKQpgYGA=